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// 

//Procedure Upgrade 

// Performs a fanout upgrade of a network. 

// "want to relabel" may be "true" or "false" each time the statement is reached 

// 

Procedure Upgrade 
do{ 

select any router requiring addition of ports 

add _ports(ro\iter); 
} while (there are routers requiring new ports); 
do{ 
start 

if(want to relabel) { 

if(any router, current_router, can be relabeled) { 
relabel j?orte(current_router); 
goto start; 

} 

} 

select any port not connected to corresponding jportfport); 
target _port^correspondwg_port(port); 
if(target_port is already connected) { 

disconnected jport^port currently connected to target jport; 

D^6ownecr(targetjport ? disconnected_port); 

} 

Conw^c^(port,target_port); 
} while(there are miscormected ports); 
connect external jmrtsQ; 
activate _external _portsQ\ 
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// 

//Procedure Upgrade 

// Performs a fanout upgrade of an RCCBG network with an upgraded fanout of fanout, 
// mim_routers_per row per row, and num rows total rows. Also, 

// RELABEL_AVAILABLE flag if swapping of ports in a single router can be performed without 
// breaking connections. 

// 

Procedure Upgrade 

do{ 

select any router lequiring addition of ports 
add _ports(router); 
} while (there are routers requiring new ports); 

for(rindex=0;rirMlex<num_rows-l;rirAdex++) { 
current_mvv^ro\v_seleci(rindex); 
if(RELABEL_AVABLABLE) { 
relabel j>orts(eurrent_row); 

disconnected _j>ort=None; // Holds the port previously disconnected by the last rewire step 
while((port=5eto ^?or<disconnected_port,current_row))!=None) { 

tar^t_port^corresponding_port(j^ort); 

if(target_port is already connected) { 




//Simplification functions. 

// 

Function correct jrart(portl,port2) 

{ 

if(portl can be propertiy connect to port2)return(TRUE); 
elsereturn(FALSE); 

} 

Function correspondingjport(port) 

{ 

if(port is a bottom port) { 

return top port of router in next row that should be properly connected to port port; 



return bottom port of router in the previous row that should be properly connected to port port; 



} else { 



} 

Function Disconnect(portt ,port2) 

{ 



Divert traffic away from portl ; 
Divert traffic away from port2 ; 
Disconnect connection between portl and port2 ; 



Function Connect (portl ,port2) 



{ 

Connect portl and port2 ; 

Allow traffic to flow through portl ; 

Allow traffic to flow through port2 ; 



} 




Function row_seieet(royf_mdex) { 
if(num rows is even) { 

start_row=num_rows/2- 1 ; 
} else { 

start_row=(num rows- 1 )/2; 

} 

if[row_index is even) { 

retimi(start_row+row_index/2); 
} else { 

retum(start_row-(row_index+ 1 )/2); 

} 

} 

Fig. 



Function row_select(row index) { 
return(row_index); 

} 




Function select jawtf(dport,current_row) // optimal dport is not used 

port_pool= { port: bottom ports of routers in row, current row and top port of routers in row, 

curreBt_row+l not connected to corresponding_port(poYt)}; 
If For simplicity order right to left 
// First criterion 
for port an portjpool { 

if$disconnected(poit) && disconnected(correspondingjx>rt(jMrt)^ 

} 

II Second criterion:This basically says we prefer to target connections that break 
// connections only on fully populated routers 
for port in portjpool { 

if(disconnected(port) && 

mmjiiscomections(routerj)ftportj:onnectedj^^ { 

return(port); 

} 

// Third criterion: Any port that is not connected 
for port in portjpool { 

if(disconnected(party) return(port); 

} 

// Catch all for any ports left ovenNot likely to be needed 
for port in port_pool { 
return(port); 

} 

return(None); 
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Function select jw>rf(dport,row) Iff ill the hole 

{ 

if(dport NNone)retum(dport); 

else { 

for all bottom ports, port, of routers in row current row scanning from right to left { 
import is not connected to corresponding _port(port)) return(port); 

} 

return None; // No more ports to rewire 

} 
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Function select j>ort(dport,current_row) // round robin 



// This requires a FIFO of ports 
if£port_fifo empty) { 

port_fifo={port: bottom ports of routers in row, currentrow and top port of routers in row, 



current_row+l which are disconnected}; 



if(port_pool empty) { 

port_pool={port: bottom ports of routers in row, current row and top port of routers in row, 



eurrent_row+l not connected to corresponding jport(pQrt)}; 



for port in port_pool { 
return(port); 



// Catch all for any ports left overNot likely to be needed 



import exists) { 
return(port); 

}else { 

return(None); 

} 

} 

port=top of portjRfo ; 
remove top of portjifo ; 
return(port); 



} 



port=any port not connected to proper port 




Function relabel jrail<current_row) 

{ 

for(r=0;i<routers_per_row;i++) { 

for(bportl=0;bportl<fanout;bportl++) { 

for(bport2=0;bport2<fanout;bport2++) { 

//Test to see if the candidate port is connected to a router which one of the 
//other ports on the same router should be connected to Jt doesn 5 t matter 
//at this point if it is the correct top port.That will be corrected in next loop. 
if(bottom port bportl of R(current_row,i)is connected to any top port of 

router j)j{conespondingj)ort$oUQm port bport2 of R(current_row, i)) { 
if(bportl!=bport2) { 

exchange _ports(bportl of R(current row, i),bport2 of R(current row, i)); 

} 

} 

} 

for(tportl=0;tportl<fanoiit;tportl++) { 

for(tport2=0;tport2<fanout;tport2++) { 

//Test to see if the candidate port is connected to a port which one of the 
//other ports on the same router should be connected to. 
if(top port tportl of R(cwrrent_row+l, i)is connected to 

corresponding^^? port tport2 of R(current_row+l, i)) { 
if(tportl!=tport2) { 

exchange j*?rfc(tportl of R(current row+1, i),tport2 of R(current_row+l, i)); 

} 

} 

} 

} 

} 

// 

//Auxiliary Procedures 

// 

Function router^afljport) 

{ 

return(the router which port belongs to); 

} 

// 

//Here logical relabelling is assumed possible 
//Other exchange schemes can be substituted 

// 

Function exchange jttw*s(portl,port2) 

permanently divert traffic originally intended for port! to port2 ; 
permanently divert traffic originally intended for port2 to port! ; 

> 
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